00010 CTS=0
00020 OPEN "I",1,"PATHFILE"
00021 INPUT#1,LA$,RRH$,Q1$,Q1T$,UL$,CLG$
00022 CLOSE #1
00023 ON ERROR GOSUB 340
00024 OPEN"I",1,LA$,68
00025 READ #1,SCAPE$;4,BR$;1,SCRAPE2$;9,CP$;4,SCAPE3$;50
00026 CLOSE #1
00050 BR=ASC(BR$)
00060 IF BR=0 THEN BR=300
00070 IF BR=2 THEN BR=1200
00080 IF BR=3 THEN BR=2400
00090 OPEN"C",-1,BR,0,0,1,3
00250 GOTO 300
00270 IF BR=4 THEN RETURN
00275 NEWCTS=PEEK(&H2CE) AND &H20
00280 IF NEWCTS<>CTS THEN GOTO 340
00290 RETURN
00300 REM START PROGRAM HERE!
00310 TX$="It's "
00320 TX2$=" SST. (Standard System Time)"
00330 PRINT TX$;TIME$;TX2$
00331 IF BR<>4 THEN PRINT#-1,TX$;TIME$;TX2$
00333 IF BR=4 THEN DELAY 5000
00334 OPEN"A",2,CLG$
00335 PRINT#2,"Needs to buy a watch."
00336 CLOSE#2
00340 RUN RRH$
00350 REM This software was created using the ZBasicª Compiler.
00360 REM Portions of this code are ©Copyrighted, 1985 by Zedcor Inc.
00370 REM 1036 Written By Frederic W. Barling and placed in the public domain
00380 REM on March 10, 1987.
